/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol016 / xmerge.bas

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 09 52 45 4d 09 4d 45 52 | 47 45 0d 0a 09 49 4e 50 |.REM.MER|GE...INP|
|00000010| 55 54 20 22 45 4e 54 45 | 52 20 4e 41 4d 45 20 4f |UT "ENTE|R NAME O|
|00000020| 46 20 4d 41 53 54 45 52 | 3a 20 22 3b 5a 24 0d 0a |F MASTER|: ";Z$..|
|00000030| 09 4d 41 53 54 45 52 24 | 3d 5a 24 0d 0a 09 54 52 |.MASTER$|=Z$...TR|
|00000040| 41 4e 53 41 43 54 49 4f | 4e 24 3d 22 53 4f 52 54 |ANSACTIO|N$="SORT|
|00000050| 2e 46 49 4c 22 0d 0a 09 | 49 4e 50 55 54 20 22 45 |.FIL"...|INPUT "E|
|00000060| 4e 54 45 52 20 4e 45 57 | 20 4d 41 53 54 45 52 20 |NTER NEW| MASTER |
|00000070| 4e 41 4d 45 3a 20 22 3b | 5a 24 0d 0a 09 4f 55 54 |NAME: ";|Z$...OUT|
|00000080| 24 3d 5a 24 0d 0a 09 46 | 49 4c 4c 45 52 24 3d 22 |$=Z$...F|ILLER$="|
|00000090| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000000a0| 20 20 20 20 20 20 20 20 | 22 0d 0a 09 46 4c 41 47 |        |"...FLAG|
|000000b0| 4d 3d 30 0d 0a 09 46 4c | 41 47 54 3d 30 0d 0a 20 |M=0...FL|AGT=0.. |
|000000c0| 0d 0a 09 46 49 4c 45 09 | 4d 41 53 54 45 52 24 0d |...FILE.|MASTER$.|
|000000d0| 0a 09 46 49 4c 45 09 54 | 52 41 4e 53 41 43 54 49 |..FILE.T|RANSACTI|
|000000e0| 4f 4e 24 0d 0a 09 46 49 | 4c 45 09 4f 55 54 24 0d |ON$...FI|LE.OUT$.|
|000000f0| 0a 20 0d 0a 09 50 52 49 | 4e 54 20 43 48 52 24 28 |. ...PRI|NT CHR$(|
|00000100| 32 36 29 0d 0a 09 50 52 | 49 4e 54 20 22 4d 45 52 |26)...PR|INT "MER|
|00000110| 47 49 4e 47 2e 2e 2e 22 | 2c 0d 0a 09 47 4f 53 55 |GING..."|,...GOSU|
|00000120| 42 20 32 30 0d 0a 09 47 | 4f 53 55 42 20 33 30 0d |B 20...G|OSUB 30.|
|00000130| 0a 09 47 4f 54 4f 20 34 | 30 0d 0a 20 0d 0a 32 30 |..GOTO 4|0.. ..20|
|00000140| 09 52 45 4d 0d 0a 09 52 | 45 41 44 23 31 3b 20 4d |.REM...R|EAD#1; M|
|00000150| 4c 41 53 54 24 2c 20 4d | 46 49 52 53 54 24 2c 20 |LAST$, M|FIRST$, |
|00000160| 4d 41 44 44 52 45 53 53 | 24 2c 20 4d 43 49 54 59 |MADDRESS|$, MCITY|
|00000170| 24 2c 4d 5a 49 50 24 2c | 4d 41 52 45 41 24 2c 4d |$,MZIP$,|MAREA$,M|
|00000180| 54 45 4c 24 0d 0a 09 49 | 46 20 4d 4c 41 53 54 24 |TEL$...I|F MLAST$|
|00000190| 3d 22 45 4e 44 22 20 54 | 48 45 4e 20 32 35 30 0d |="END" T|HEN 250.|
|000001a0| 0a 32 35 09 52 45 4d 20 | 43 4f 4e 54 49 4e 55 41 |.25.REM |CONTINUA|
|000001b0| 54 49 4f 4e 0d 0a 09 47 | 4f 53 55 42 20 32 30 30 |TION...G|OSUB 200|
|000001c0| 0d 0a 09 52 45 54 55 52 | 4e 0d 0a 20 0d 0a 33 30 |...RETUR|N.. ..30|
|000001d0| 09 52 45 4d 0d 0a 09 52 | 45 41 44 23 32 3b 20 54 |.REM...R|EAD#2; T|
|000001e0| 4c 41 53 54 24 2c 20 54 | 46 49 52 53 54 24 2c 20 |LAST$, T|FIRST$, |
|000001f0| 54 41 44 44 52 45 53 53 | 24 2c 20 54 43 49 54 59 |TADDRESS|$, TCITY|
|00000200| 24 2c 54 5a 49 50 24 2c | 54 41 52 45 41 24 2c 54 |$,TZIP$,|TAREA$,T|
|00000210| 54 45 4c 24 0d 0a 09 49 | 46 20 54 4c 41 53 54 24 |TEL$...I|F TLAST$|
|00000220| 3d 22 45 4e 44 22 20 54 | 48 45 4e 20 33 35 30 0d |="END" T|HEN 350.|
|00000230| 0a 33 35 09 52 45 4d 20 | 43 4f 4e 54 49 4e 55 41 |.35.REM |CONTINUA|
|00000240| 54 49 4f 4e 0d 0a 09 47 | 4f 53 55 42 20 33 30 30 |TION...G|OSUB 300|
|00000250| 0d 0a 09 52 45 54 55 52 | 4e 0d 0a 20 0d 0a 34 30 |...RETUR|N.. ..40|
|00000260| 09 52 45 4d 09 54 45 53 | 54 0d 0a 09 49 46 20 46 |.REM.TES|T...IF F|
|00000270| 4c 41 47 4d 3d 31 20 54 | 48 45 4e 20 37 30 0d 0a |LAGM=1 T|HEN 70..|
|00000280| 20 0d 0a 34 35 09 52 45 | 4d 09 43 4f 4d 50 41 52 | ..45.RE|M.COMPAR|
|00000290| 49 53 4f 4e 0d 0a 09 49 | 46 20 4d 24 3c 54 24 20 |ISON...I|F M$<T$ |
|000002a0| 54 48 45 4e 20 35 30 0d | 0a 09 50 52 49 4e 54 23 |THEN 50.|..PRINT#|
|000002b0| 33 3b 20 54 4c 41 53 54 | 24 2c 20 54 46 49 52 53 |3; TLAST|$, TFIRS|
|000002c0| 54 24 2c 20 54 41 44 44 | 52 45 53 53 24 2c 20 54 |T$, TADD|RESS$, T|
|000002d0| 43 49 54 59 24 2c 54 5a | 49 50 24 2c 54 41 52 45 |CITY$,TZ|IP$,TARE|
|000002e0| 41 24 2c 54 54 45 4c 24 | 0d 0a 09 50 52 49 4e 54 |A$,TTEL$|...PRINT|
|000002f0| 20 54 4c 41 53 54 24 2c | 0d 0a 09 47 4f 53 55 42 | TLAST$,|...GOSUB|
|00000300| 20 33 30 0d 0a 09 47 4f | 54 4f 20 34 30 0d 0a 20 | 30...GO|TO 40.. |
|00000310| 0d 0a 37 30 09 49 46 20 | 46 4c 41 47 54 3d 30 20 |..70.IF |FLAGT=0 |
|00000320| 54 48 45 4e 20 34 35 0d | 0a 09 50 52 49 4e 54 23 |THEN 45.|..PRINT#|
|00000330| 33 3b 20 22 45 4e 44 22 | 2c 22 45 4e 44 22 2c 22 |3; "END"|,"END","|
|00000340| 45 4e 44 22 2c 22 45 4e | 44 22 2c 22 45 4e 44 22 |END","EN|D","END"|
|00000350| 2c 22 45 4e 44 22 2c 22 | 45 4e 44 22 0d 0a 09 53 |,"END","|END"...S|
|00000360| 54 4f 50 0d 0a 20 0d 0a | 35 30 09 50 52 49 4e 54 |TOP.. ..|50.PRINT|
|00000370| 23 33 3b 20 4d 4c 41 53 | 54 24 2c 20 4d 46 49 52 |#3; MLAS|T$, MFIR|
|00000380| 53 54 24 2c 20 4d 41 44 | 44 52 45 53 53 24 2c 20 |ST$, MAD|DRESS$, |
|00000390| 4d 43 49 54 59 24 2c 4d | 5a 49 50 24 2c 4d 41 52 |MCITY$,M|ZIP$,MAR|
|000003a0| 45 41 24 2c 4d 54 45 4c | 24 0d 0a 0d 0a 09 50 52 |EA$,MTEL|$.....PR|
|000003b0| 49 4e 54 20 4d 4c 41 53 | 54 24 2c 0d 0a 09 47 4f |INT MLAS|T$,...GO|
|000003c0| 53 55 42 20 32 30 0d 0a | 09 47 4f 54 4f 20 34 30 |SUB 20..|.GOTO 40|
|000003d0| 0d 0a 20 0d 0a 32 30 30 | 09 52 45 4d 09 4d 41 53 |.. ..200|.REM.MAS|
|000003e0| 54 45 52 0d 0a 09 4d 4c | 24 3d 4d 4c 41 53 54 24 |TER...ML|$=MLAST$|
|000003f0| 2b 46 49 4c 4c 45 52 24 | 0d 0a 09 4d 46 49 4c 4c |+FILLER$|...MFILL|
|00000400| 45 52 24 3d 4d 46 49 52 | 53 54 24 2b 46 49 4c 4c |ER$=MFIR|ST$+FILL|
|00000410| 45 52 24 0d 0a 09 4d 4c | 24 3d 4c 45 46 54 24 28 |ER$...ML|$=LEFT$(|
|00000420| 4d 4c 24 2c 32 34 29 0d | 0a 09 4d 46 49 4c 4c 45 |ML$,24).|..MFILLE|
|00000430| 52 24 3d 4c 45 46 54 24 | 28 4d 46 49 4c 4c 45 52 |R$=LEFT$|(MFILLER|
|00000440| 24 2c 32 34 29 0d 0a 09 | 4d 24 3d 4d 4c 24 2b 4d |$,24)...|M$=ML$+M|
|00000450| 46 49 4c 4c 45 52 24 0d | 0a 09 52 45 54 55 52 4e |FILLER$.|..RETURN|
|00000460| 0d 0a 20 0d 0a 32 35 30 | 09 4d 4c 41 53 54 24 3d |.. ..250|.MLAST$=|
|00000470| 22 5a 5a 22 0d 0a 09 46 | 4c 41 47 4d 3d 31 0d 0a |"ZZ"...F|LAGM=1..|
|00000480| 09 47 4f 54 4f 20 32 35 | 0d 0a 20 0d 0a 33 30 30 |.GOTO 25|.. ..300|
|00000490| 09 52 45 4d 09 54 52 41 | 4e 53 41 43 54 49 4f 4e |.REM.TRA|NSACTION|
|000004a0| 0d 0a 09 54 4c 24 3d 54 | 4c 41 53 54 24 2b 46 49 |...TL$=T|LAST$+FI|
|000004b0| 4c 4c 45 52 24 0d 0a 09 | 54 46 49 4c 4c 45 52 24 |LLER$...|TFILLER$|
|000004c0| 3d 54 46 49 52 53 54 24 | 2b 46 49 4c 4c 45 52 24 |=TFIRST$|+FILLER$|
|000004d0| 0d 0a 09 54 4c 24 3d 4c | 45 46 54 24 28 54 4c 24 |...TL$=L|EFT$(TL$|
|000004e0| 2c 32 34 29 0d 0a 09 54 | 46 49 4c 4c 45 52 24 3d |,24)...T|FILLER$=|
|000004f0| 4c 45 46 54 24 28 54 46 | 49 4c 4c 45 52 24 2c 32 |LEFT$(TF|ILLER$,2|
|00000500| 34 29 0d 0a 09 54 24 3d | 54 4c 24 2b 54 46 49 4c |4)...T$=|TL$+TFIL|
|00000510| 4c 45 52 24 0d 0a 09 52 | 45 54 55 52 4e 0d 0a 20 |LER$...R|ETURN.. |
|00000520| 0d 0a 33 35 30 09 54 4c | 41 53 54 24 3d 22 5a 5a |..350.TL|AST$="ZZ|
|00000530| 22 0d 0a 09 46 4c 41 47 | 54 3d 31 0d 0a 09 47 4f |"...FLAG|T=1...GO|
|00000540| 54 4f 20 33 35 0d 0a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |TO 35...|........|
|00000550| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000560| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000570| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000580| f3 02 cd 03 03 cd be 02 | 0e 2c cd 15 00 c3 f4 04 |........|.,......|
|00000590| 21 12 06 c3 99 04 21 0e | 06 cd f3 02 cd 03 03 cd |!.....!.|........|
|000005a0| be 02 c3 71 03 7a e6 38 | 0f 4f 21 ee 05 09 cd f3 |...q.z.8|.O!.....|
|000005b0| 02 c3 c5 04 21 ea 05 cd | f3 02 cd 03 03 cd be 02 |....!...|........|
|000005c0| 0e 2c cd 15 00 7a e6 07 | cd be 02 c3 71 03 79 87 |.,...z..|....q.y.|
|000005d0| 87 4f 21 ce 05 09 cd f3 | 02 cd a3 02 f5 cd a3 02 |.O!.....|........|
|000005e0| 57 f1 5f cd 95 06 c3 71 | 03 79 87 87 4f 21 a6 05 |W._....q|.y..O!..|
|000005f0| 09 cd f3 02 cd a3 02 cd | 92 06 c3 71 03 79 87 87 |........|...q.y..|
+--------+-------------------------+-------------------------+--------+--------+